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CODAP1 TO COMPASS TRANSLATOR 



The CODAP1 to COMPASS Translator is a routine which translates 1604 
CODAP1 source programs to 3400 COMPASS format. 

This translator is a utility routine called into memory in the same way as other 
utility routines. The 3400 Utility Package Programming Systems Bulletin 
(publication number 60137100) contains information on calling utility routines. 

Input must be from one unblocked tape, i. e. , one card per record. 

In the description of card format, if a parameter is to be omitted, only the 
following comma need be indicated. 



TRANSLAT 

CARD FORMAT In the bulletin mentioned, the format of this card is described generally as: 



< utility routine name> p ,p , . . . ,p 

J- &t n 

col. 1 

TRANSLAT, p i ,p 2 ,p 3 ,p 4) p 5 ,p 6 ,p 7 ,p £ 



p number of logical unit containing translator. It may be omitted, 

zero, or 70-79; if it is LIB, omitted, or zero, 70 is assumed. 

p operating mode 

COMPASS All succeeding card images are processed without 
change until a CODAP card is read. 

CODAP All succeeding card images are translated to 

3400 COMPASS format until a COMPASS card is 
read. 

p logical unit number of input tape unit containing card images to be 
translated; must be 1 to 49 or 60. If p = 60, parameters p , p , 
and p are ignored. 

p logical unit number of punch output tape unit on which Hollerith for- 

mat translated card images are to be written. It must be 1 to 49. 

p number of files to skip on the input tape before translation begins; 

must be numeric. 



p„ rewind indicator 
6 

no rewind 

7^0 rewind before skipping 

p number of files to translate; must be numeric. End-of-files are 

7 

copied onto the punch output tape. 

p c listing option parameter 

o 

do not list translated cards 
t^O list translated cards on standard output unit (OUT) 

Parameters p 2 through p. must be specified. If any is omitted, an error 
message is printed on the standard output unit (OUT) and on the output comment 
medium (OCM), and the job is terminated. 

Parameters p g through p g are optional: 

If p is omitted, no files will be skipped, and processing will start at the 
beginning of tape. 

If p„ is omitted, it is assumed to be 0, and no rewind will take place, 
o 

If p„ is omitted, it is assumed to be 1, and only one file will be translated. 

If p is omitted, it is assumed to be 0, and the translated cards will not be 
listed. 



COMPASS/CODAP 
MODE CARDS 



col. 10. 



COMPASS 



col. 10. 



CODAP 



These cards function the same as the COMPASS and CODAP modes of parame- 
ter p of the TRANS LAT card. As many COMPASS and CODAP cards as 
desired may be used to indicate the end of each set of source language cards . 
Examples are shown on pages 6 and 7 . 



FORMAT 

TRANSLATION The location field (columns 1-8) and the address field (columns 20-40) of a 

CODAP1 card are checked for legal COMPASS characters, except embedded 
blanks in the location field. Periods are substituted for illegal COMPASS 
characters. Characters considered legal in the COMPASS Reference Manual 
are not necessarily considered legal COMPASS characters by this routine. 

Legal COMPASS characters in the location field are: 

A - Z 

0-9 

. (period) 



- (minus) 
blank 

Legal COMPASS characters in the address field include the above plus: 



** (except **+XX) 

An asterisk or an equal sign is not changed when it is the first character in the 
location field. An equal sign is not changed when it is the first character in 
the address field; this may produce incorrect results, which are detected by a 
COMPASS assembly. 

The address field is extended to column 72 , and a left and right parentheses 
and a comma are allowed for the following pseudo instructions: 

ORGR COMMON IDENT LIB EXT ENTRY 

The address field is extended to column 80 for the following pseudo instructions: 

BCD BSS DEC REM OCT ZRO BES SPACE BLOCK 

The remarks field and sequence field of a CODAP1 card are moved without 
change. 



Example translations: 

CODAP1 Changed To 



Location Field 



(B$C) 



*zz 



.B.C. 



A=+2 


A. +2 


* 


* 


EX1* 


EX1. 


=HCONST 


=HCONST 



*zz 



Remarks 



Left and right parentheses and dollar sign 
illegal 

Equal sign is illegal 

No change because first character 

Asterisk is illegal 

No change because equal sign is first 
character 

Error; would be detected in a COMPASS 
assembly 



Address Field 



COMMENT* COMMENT* Asterisk legal in address field 



POINTS OF 
INTEREST 



• Labels with leading asterisks are not changed. 

• Literals are not checked in the address field. 

• The suffix D on a constant is not removed. 

• ** followed by a character is flagged as an illegal arithmetic option. 

• The index designator Bl is changed to 1 . 



LOGICAL UNIT 
TRANSLATION 



CO-OP monitor logical units 50 through 55 are translated to SCOPE logical 
units 60 through 65. 



SIMULATED 

SUBROUTINES Calls to CODAP1 subroutines must be removed or substituted with SCOPE calls 

in the translated COMPASS program, except the calls listed below: 

READ* WRITE* EXIT* ERROR* 

which are translated to: 

READ. WRITE. EXIT. ERROR. 

Each of the above calls a subroutine in the SCOPE library tape which simulates 
the equivalent CO-OP monitor subroutine. If the function code is other than 
specified below for the READ, and WRITE, simulated subroutine, an error 
message will be printed during execution of the translated program. The 
CO-OP Monitor Programmer's Guide, publication number 508, describes the 
result of each function code listed below. 

READ. 



Hardware 


CODAP1 Function Code 


Tape Unit 


1-9 


Control Console 


1-4 


Card Reader 


1-4 


WRITE. 




Hardware 


CODAP1 Function Code 


Tape Unit 


1-9 


Control Console 


1-5-8 


Printer 


1 


Punch 


1-4 



ERROR. 

Simulates the CO-OP ERROR* subroutine. An abnormal termination with 
a core dump (specified by the dump indicator on the RUN card) will result. 
The dump will be the image of core when this routine is called. At the end 
of the dump, SCOPE prints: 

ABNORMAL EXIT TAKEN, RUN TERMINATED 



EXIT. 

Simulates the CO-OP EXIT* subroutine; a normal exit to SCOPE is made. 



Example of Card Input 




A 



ArANSLAT ,70, CODAP, 60,20, , , ,1 
UTILITY 



'EQUIP,20=MT02 



EQUIP, 60=MT01 



/7jOB,A5,AH,l 



Example of Tape Input 



SCOPE 



TRANS LAT,70, COMPASS, 10,20, 3, 1,2,1 



A 



n 



UTILITY 



EQUIP,20=MT2 



/^EQUIP,10=MT01 

/^JOB,A7,KL,10 




< 



L 



COMPASS card deck 



COMPASS 



C0DAP1 card deck 



L 



CODAP 



COMPASS card deck 



Table 1. PSEUDO CODE EQUIVALENTS 



CODAP1 


COMPASS 


ZRO 


00 


SPACES 


SPACE 


LIB 


EXT 


SEV 


77 


TEL 


TEL ***** 


I/O 


I/O ***** 


FLX 


FLX ***** 


FINIS 


SCOPE 


ORG 


ORG ***** 


LITDEC 


LITDEC ***** 



CODAP1 


COMPASS 


LITOCT 


LITOCT ***** 


ONLIST 


NOLIST 


LIST 


LIST 


TITLE 


TITLE ***** 


DETAIL 


DETAIL ***** 


REF 


REF ***** 


SYSTEM 


SYSTEM ***** 


CALL 


CALL 


REMARK 


REMARK ***** 



Table 2. MACHINE CODE EQUIVALENTS 



CODAP1 


COMPASS 


ISK 




ISK 




SLSO 




SLS 




SLS1 




SSI 




SLS2 




SS2 




SLS3 




SS3 




SLS4 


SRJ 


SRJ 




SLS5 


SRJ 1 


SRI 




SLS6 


SRJ 2 


SR2 




SLS7 


SRJ 3 


SR3 




SLJ 




SLJ 




SLJ 1 




SJ1 




SLJ 2 




SJ2 




SLJ 3 




SJ3 




SLJ 4 


RTJ 


RTJ 




SLJ 5 


RTJ 1 


RT1 




SLJ 6 


RTJ 2 


RT2 




SLJ 7 


RTJ 3 


RT3 




AJP 


0,Z 


AJP, 


ZR 


AJP 


l.N 


AJP, 


NZ 


AJP 


2,P 


AJP, 


PL 



CODAP1 


COMPASS 


AJP 3,M 


AJP, MI 


AJP 4 


ARJ, ZR 


AJP 5 


ARJ, NZ 


AJP 6 


ARJ, PL 


AJP 7 


ARJ, MI 


ARJ 


ARJ, ZR 


ARJ 1 


ARJ, NZ 


ARJ 2 


ARJ, PL 


ARJ 3 


ARJ, MI 


QJR 


(same as AJP) 


QRJ 


(same as ARJ) 


SEN 


SEN **** 


MUF 


MUF **** 


DVF 


DVF **** 


INT 


INT **** 


OUT 


OUT **** 


ACT 


ACT **** 


EXF 


EXF **** 


SEL 


SEL **** 



COMPASS codes with following asterisks are considered illegal; table 3 gives 
the error messages which will be printed on listing for these equivalents. 



Table 3. ERROR MESSAGES 



Message 



During Translation (typed on console and printed on listing) 



Meaning 



MODE INCORRECTLY INDICATED 
ILLEGAL LUN FOR INPUT UNIT 
ILLEGAL LUN FOR OUTPUT UNIT 



p incorrect 

, . , ... , (parameters of 

p 3 outside range specified TRANgLAT card) 

p outside range specified 



During Execution of Translated Program (typed on console and printed on listing) 



ERROR IN CODAP1 CALLING SEQUENCE (READ.) 



one of following: 

Input logical unit number outside range 1 to 
50, 53, 56, 57 

CODAP1 function code outside range specified 
in simulation subroutine description 



ERROR IN CODAP1 CALLING SEQUENCE (WRITE.) one of following: 



Output logical unit number outside range 1 to 
49, 52, 54 to 57 

CODAP1 function code outside range specified 
in simulation subroutine description 



Printed on Listing Only (columns 81 - 120 on erroneous line of code) 

*************ILLEGAL CODE************* 



********EQUATE NEEDED FOR EXT 



***ILLEGAL ARITH IN COMPASS 
***WARNING**ISK*USED*AS*LOWER 



Illegal COMPASS code; must be corrected by 
user. 

COD API LIB pseudo code is translated to 
EXT; however, an EXT is also required. 

Example: A CODAP1 line of coding 

AB LIB YZ 

will be translated to 

AB EXT YZ 

The user must follow this line of translated 
code with 

AB EQU YZ 
Illegal arithmetic function 
ISK was forced lower 
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